home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
PAS_0793
/
FSTMOVE1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-08-01
|
1KB
|
28 lines
{─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
Msg : 408 of 417
From : Raphael Vanney 2:320/7.0 05 Jul 93 22:34
To : Justin Tawil
Subj : Help in quick moves
────────────────────────────────────────────────────────────────────────────────
Hi !
JT>Does anyone have an Inline source for moving bytes a word or a double
JT>word at a time..I need to copy data in and out of buffer very
JT>quickly..Thanks..}
Procedure Move(Var Src, Dst ; Cnt : Word) ; Assembler ;
Asm
Mov CX, Cnt
Mov DX, DS { Sauvegarde DS }
LDS SI, Src
LES DI, Dst
ClD { A priori, on va du dbut vers la fin }
ShR CX, 1 { On va travailler sur des mots }
Rep MovSW { Copie des mots }
AdC CX, 0 { Dernier octet, le cas chant }
Rep MovSB { Copie dernier octet }
Mov DS, DX { Restauration DS }
Quit:
End ;
Warning : this Move proc does _not_ check for overlapping.